home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-09
/
floppies.zip
/
FLOPPY.ZIP
/
QUERFLOP.SC
< prev
next >
Wrap
Text File
|
1992-03-14
|
2KB
|
61 lines
;-------QUERFLOP.SC
;---------------------------------MAIN MENU FOR QUERFLOP
CLEARALL
;------------------------------DISPLAY OPENING SCREEN.
STYLE ATTRIBUTE 30
CLEAR
@ 8,20
?? "GARRY'S FLOPPY DISK CATALOGGING QUERY SYSTEM"
STYLE
@ 10,1
TEXT
SELECT OPTIONS FROM THE MENU ABOVE BY EITHER USING
CURSOR KEYS TO HIGHLIGHT OR BY TYPING THE FIRST LETTER
OF THE OPTION. MOVING THE CURSOR DISPLAYS A BRIEF
DESCRIPTION OF EACH OPTION.
ENDTEXT
;-------------------SET UP MENU LOOP
CHOICE = " "
WHILE CHOICE <> "EXIT"
;----------------SHOW OPTION MENU.
SHOWMENU
"DISK" : "FIND BY DISK #",
"DESC" : "FIND BY DESCRIPTION",
"CAT" : "FIND BY CATEGORY",
"S/W" : "FIND SHAREWARE",
"COMM" : "FIND COMMERCIAL SOFTWARE",
"LOC" : "FIND BY BOX IDENTIFICATION",
"2nd QUERY" : "FURTHER DEFINE FIRST QUERY",
"REPORT" : "PRINT A REPORT OF ANSWER",
"EXIT" : "RETURN TO MAIN MENU"
TO CHOICE
;------------------PLAY SCRIPT OF CHOICE.
SWITCH
CASE CHOICE = "DISK" :
PLAY "DISKQ"
CASE CHOICE = "DESC" :
PLAY "DESCQ"
CASE CHOICE = "CAT" :
PLAY "CATQ"
CASE CHOICE = "S/W" :
PLAY "SWQ"
CASE CHOICE = "LOC" :
PLAY "LOCQ"
CASE CHOICE = "COMM" :
PLAY "COMMQ"
CASE CHOICE = "2nd QUERY" :
PLAY "FLPQUER2"
CASE CHOICE = "REPORT" :
PLAY "ANSREPCL"
ENDSWITCH
ENDWHILE
;------------------EXIT
CLEAR
STYLE REVERSE
@ 12,24
?? "RETURNING TO MAIN MENU..."
PLAY "FLOPPY"
SLEEP 1000